Tricks of the Mac Game Programming Gurus/TricksOfTheMacGameProgrammingGurus.iso/More Source/C⁄C++/Xconq 7.0d37/lib/flattop.g

Text File | 1995-05-04 | 5KB | 244 lines

(game-module "flattop"
  (title "Flattop Battles")
  (blurb "WW II, in the Pacific, aboard a carrier")
  (variants (see-all false))
  )

(unit-type f (name "fighter")
  (help "protects ships from aircraft"))
(unit-type d (name "dive bomber") (help ""))
(unit-type t (name "torpedo bomber")
  (help "carries deadly torpedos"))
(unit-type pby (name "PBY") (char "p")
  (help "long-range scout plane"))
(unit-type dd (name "destroyer") (char "D") (help ""))
(unit-type sub (name "submarine") (char "S") (help ""))
(unit-type cve (name "escort carrier") (char "E") (help ""))
(unit-type cl (name "light cruiser") (char "R") (help ""))
(unit-type ca (name "heavy cruiser") (char "R") (help ""))
(unit-type cv (name "carrier") (char "C") (help ""))
(unit-type bb (name "battleship") (char "B") (help ""))
(unit-type / (name "base") (help ""))

(material-type fuel (help "how to get around"))
(material-type ammo (help "small stuff"))
(material-type shell (help "8 to 16 inch"))
(material-type bomb (help "iron bombs"))
(material-type torps (help "death to ships"))

(define o fuel)
(define a ammo)
(define A shell)
(define b bomb)
(define ! torps)

(terrain-type sea (char ".") (color "sky blue"))
(terrain-type atoll (char ",") (color "cyan"))
(terrain-type island (char "+") (color "forest green") (image-name "forest"))

(add f image-name "1e")
(add d image-name "1e")
(add t image-name "torp-bomber")
(add cl image-name "ca")
(add cve image-name "cv")
(add / image-name "airbase")

(define combat-air (f d t))
(define air (f d t pby))
(define heavy (cl ca bb))
(define carriers (cve cv))
(define ships (dd sub cve cl ca cv bb))

;;; Any number of aircraft can share the same airspace.

(table unit-size-in-terrain
  (air t* 0)
  )

(table unit-size-as-occupant
  (u* u* 99)
  (air carriers 1)
  (air / 4)
  (ships / 1)
  )

(add air capacity 0)
(add carriers capacity (4 8))
(add / capacity 32)

;100 u* u* enter-time

(table unit-storage-x
  (ships (fuel ammo) 500)
  (air fuel 24)
  (pby fuel 48)
  (air ammo 2)
  (pby ammo 0)
  (d b 2)
  (t torps 2)
  ((dd sub) torps 12)
  (cve (b torps) 25)
  (cv (b torps) 50)
  (heavy shell 50)
  (/ m* 1000)
  )

(table base-consumption
  (air fuel 12)
  (pby fuel  6)
  (ships fuel 1)
  )

(table hp-per-starve
  ;; Aircraft splash immediately if they run out of fuel.
  (air fuel 1.00)
  ;; Ships have a short grace period.
  (ships fuel 0.10)
  )

(set terrain-seen true)
(add / already-seen 100)

;;; Actions.

(add air acp-per-turn 12)
(add pby acp-per-turn 6)
(add ships acp-per-turn 3)

(add / acp-per-turn 0)

;;; Movement.

(add / speed 0)

(table mp-to-enter-terrain
  (ships atoll 2)
  (ships island 10)
  )

;; Everybody needs fuel.

(table consumption-per-move
  (u* fuel 1)
  )

;10 sub visibility

(add ships hp-max (5 5 5 5 10 10 20))
(add / hp-max 100)

(table acp-to-attack
  (air u* 3)
  )

(table hit-chance
  (u* u* 50)
  (f air 80)
  (f f 60)
  (pby u* 0)
  (f carriers 20)
  (sub air 20)
  (dd sub 70)
  (carriers u* 10)
  ;; Only combat aircraft and heavy ships can hit the base.
  (u* / 0)
  ;; ...and they always hit.
  (combat-air / 100)
  (heavy / 100)
  )

(table damage
  (u* u* 1)
  (pby u* 0)
  (heavy u* 3)
  ((t dd sub) ships 1d4+1)
  ((t dd sub) (cv bb) 1d5+6)
  (bb / 1d10+5)
  )

(table consumption-per-attack
  (air ammo 1)
  (carriers ammo 1)
  ((t dd sub) torps 1)
  (heavy shell 1)
  )

(table hit-by
  (ships (b torps) 1)
  (air ammo 1)
  (u* shell 1)
  )

;50 air carriers protect

;"sinks" ships destroy-message
;"shoots down" air destroy-message

;; 0 air control

(game-module (notes (
   "This is a somewhat expanded version of the navy in the standard game. "
   "Each side commands a large fleet, and the sole objective is to wipe out "
   "the enemy's fleet.  There are different kinds of planes and ships, but "
   "nothing else."

   "Speeds of ships are uniform, so that formations work better (don't want "
   "the carriers outstripping their escorts). "

   "You do *not* get complete control over the aircraft!  Those undisciplined "
   "pilots just do what they feel like doing, and only take about half their "
   "orders."
  )))

(add t* alt-percentile-min (  0  96  98))
(add t* alt-percentile-max ( 96  98 100))
(add t* wet-percentile-min 0)
(add t* wet-percentile-max 100)

(set edge-terrain sea)

(set country-radius-min 4)
(set country-separation-min 30)
(set country-separation-max 32)

(add u* start-with (8 8 8 4 6 2 4 2 2 2 2 1))

(table favored-terrain
  (u* t* 0)
  (ships sea 100)
  (/ (atoll island) 100)
  )

(set advantage-min 1)
(set advantage-default 2)
(set advantage-max 8)

;;; Everybody starts out full.

(table unit-initial-supply (u* m* 9999))

;; Note that there are no default namers for unit types, so any type
;; not mentioned in the side's own namers will simply not be named.

(set side-library '(
  ((noun "American") (emblem-name "flag-usa")
   (unit-namers
    (cl "us-cl-names")
    (ca "us-ca-names")
    (cve "us-cve-names")
    (cv "us-cv-names")
    (bb "us-bb-names"))
   )
  ((noun "Japanese") (emblem-name "flag-japan")
   (unit-namers
    (ca "japanese-ca-names")
    (cve "japanese-cve-names")
    (cv "japanese-cv-names")
    (bb "japanese-bb-names"))
   )
  ))

(include "ng-ships")

(scorekeeper (do last-side-wins))